home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Shareware 1997 February
/
PC Shareware 1997-02.iso
/
programy
/
pcbaby
/
_setup.1
/
PCBaby4.exe
/
0
/
RCDATA
/
TJOURNAL
/
TJOURNAL.txt
Wrap
Text File
|
1996-10-21
|
9KB
|
317 lines
object Journal: TJournal
Left = 198
Top = 84
BorderStyle = bsDialog
Caption = 'Daily Journal'
ClientHeight = 377
ClientWidth = 480
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnActivate = FormActivate
TextHeight = 16
object Bevel1: TBevel
Left = 344
Top = 200
Width = 97
Height = 113
end
object Shape1: TShape
Left = 352
Top = 208
Width = 81
Height = 97
Brush.Color = clBtnFace
Pen.Color = clRed
Pen.Style = psInsideFrame
Pen.Width = 2
end
object Label1: TLabel
Left = 136
Top = 16
Width = 41
Height = 19
Caption = 'Date:'
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 56
Width = 38
Height = 19
Caption = 'Title:'
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 320
Top = 16
Width = 99
Height = 19
Caption = 'Date Search:'
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 320
Top = 72
Width = 96
Height = 19
Caption = 'Title Search:'
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 280
Top = 256
Width = 25
Height = 25
Hint = 'Prevous Record'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F3333333333333303333333333333337333333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object DelButton: TSpeedButton
Left = 368
Top = 232
Width = 49
Height = 49
Glyph.Data = {
26020000424D260200000000000076000000280000001C0000001B0000000100
040000000000B0010000CE0E0000D80E00000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
66666666676666660000666666666666666666667B101B160000666666666666
66666667B101B1B600006666666666666666667B101B1B060000666666666666
666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
67022201B0B0000600006666666666667B0022000B0000660000666666666667
B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
B1B1B0200006666600006666666672001B1B1000006666660000666666670222
01B1B000066666660000666666780022001B00006666666600006666678D8D02
20B0000666666666000066667008D800200000666666666600006667FDF08D80
20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
06666666666666660000600FDFDF000066666666666666660000600DFDF00006
6666666666666666000060000000006666666666666666660000660000000666
66666666666666660000}
OnClick = DelButtonClick
end
object SpeedButton3: TSpeedButton
Left = 280
Top = 288
Width = 25
Height = 25
Hint = 'Next Record'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F333333333333000333333333333377733333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton3Click
end
object Label6: TLabel
Left = 360
Top = 216
Width = 65
Height = 17
Alignment = taCenter
AutoSize = False
Caption = 'Delete'
Font.Color = clRed
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label7: TLabel
Left = 360
Top = 280
Width = 65
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'Record'
Font.Color = clRed
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 8
Top = 344
Width = 140
Height = 27
Caption = 'Daily Journal'
Font.Color = clBlue
Font.Height = -24
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object EntryDate: TLabel
Left = 184
Top = 16
Width = 64
Height = 19
Caption = '__-__-__'
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Title: TLabel
Left = 48
Top = 56
Width = 49
Height = 19
Caption = 'Empty'
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object DateSearch: TComboBox
Left = 320
Top = 40
Width = 145
Height = 26
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 18
ParentFont = False
TabOrder = 2
OnClick = DateSearchClick
end
object TitleSearch: TComboBox
Left = 320
Top = 96
Width = 145
Height = 26
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 18
ParentFont = False
TabOrder = 3
OnClick = TitleSearchClick
end
object OKBtn: TBitBtn
Left = 376
Top = 330
Width = 93
Height = 31
Caption = 'Close'
Default = True
Font.Color = clGreen
Font.Height = -19
Font.Name = 'Arial'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
TabOrder = 1
OnClick = OKBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000CE0E0000D80E00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555205555555555555222055555555555522205555
5555555222220555555555222222055555555722052220555555720555522055
5555555555522205555555555555220555555555555552205555555555555572
0555555555555557205555555555555552205555555555555555}
Margin = 8
Spacing = -1
end
object HelpBtn: TBitBtn
Left = 328
Top = 330
Width = 25
Height = 31
Caption = ' '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = HelpBtnClick
Kind = bkHelp
Margin = 2
Spacing = -1
end
object BitBtn1: TBitBtn
Left = 320
Top = 144
Width = 145
Height = 41
Caption = 'New Entry'
Font.Color = clBlue
Font.Height = -19
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BitBtn1Click
end
object Entry: TMemo
Left = 8
Top = 88
Width = 265
Height = 225
Lines.Strings = (
'Entry')
ScrollBars = ssVertical
TabOrder = 5
end
end